home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / gpatch / examplescripts / comparescript next >
AmigaDOS Script File  |  1998-02-28  |  3KB  |  151 lines
  1. .key ""
  2. .bra {
  3. .ket }
  4.  
  5. failat 11
  6.  
  7. if $Language EQ "deutsch"
  8.     skip German
  9. endif
  10.  
  11. GCompare ? >nil: ;is GCompare in the search path?
  12. if warn
  13.     echo "Please copy GCompare in your search path or*Nthe directory of this compare script first."
  14.     wait 5
  15.     endcli
  16. endif
  17.  
  18. Version >NIL:
  19. if NOT $Workbench GE "39."
  20.     echo "*NThis script needs OS 3.0 or better.*N"
  21.     endcli
  22. endif
  23.  
  24. echo "*NCreating patchfile:*N"
  25.  
  26. echo "Old file:  " noline
  27. requestfile >ENV:gcold{$$} title "Select old file"
  28. if warn
  29.     echo "*N*NBreak."
  30.     endcli
  31. endif
  32. echo $gcold{$$}
  33.  
  34. echo "New file:  " noline
  35. requestfile >ENV:gcnew{$$} title "Select new file"
  36. if warn
  37.     echo "*N*NBreak."
  38.     endcli
  39. endif
  40. echo $gcnew{$$}
  41.  
  42. if NOT EXISTS ENV:lastpatchfile{$$}
  43.     echo >ENV:lastpatchfile{$$} ""
  44. endif
  45.  
  46. echo "Patch file:" noline
  47. requestfile >ENV:gcpatch{$$} $lastpatchfile{$$} noicons savemode title "Select patch file"
  48. if warn
  49.     echo "*N*NBreak."
  50.     endcli
  51. endif
  52. echo >ENV:lastpatchfile{$$} "file " noline
  53. type >>ENV:lastpatchfile{$$} ENV:gcpatch{$$}
  54. echo $gcpatch{$$}
  55.  
  56. RequestChoice >ENV:gcmodeX{$$} "Select operating mode" "Which operating mode GCompare shall use?*n*n" "Mode 1" "Mode 2" "Mode 3" "Mode 4" "Quick" "Automatic" "Cancel"
  57. if $gcmodeX{$$} EQ "0"
  58.     echo "*NBreak."
  59.     endcli
  60. endif
  61. if $gcmodeX{$$} NOT GT "4"
  62.     echo >ENV:gcmode{$$} "mode " noline
  63.     echo >>ENV:gcmode{$$} $gcmodeX{$$}
  64. endif
  65. if $gcmodeX{$$} EQ "5"
  66.     echo >ENV:gcmode{$$} " "
  67. endif
  68. if $gcmodeX{$$} EQ "6"
  69.     echo >ENV:gcmode{$$} "auto "
  70. endif
  71.  
  72. ;echo "*Ngcompare" $gcold{$$} $gcnew{$$} $gcpatch{$$} $gcmode{$$}
  73. echo ""
  74. changetaskpri -2
  75.  
  76. gcompare $gcold{$$} $gcnew{$$} $gcpatch{$$} $gcmode{$$}
  77. endcli
  78.  
  79. ;************
  80.  
  81.  
  82. LAB German
  83.  
  84. GCompare ? >nil: ;is GCompare in the search path?
  85. if warn
  86.     echo "Bitte kopieren Sie zuerst GCompare in den Suchpfad oder*Ndas Verzeichnis dieses Compare-Skripts."
  87.     wait 5
  88.     endcli
  89. endif
  90.  
  91. Version >NIL:
  92. if NOT $Workbench GE "39."
  93.     echo "*NDieses Skript läuft nur ab OS 3.0.*N"
  94.     endcli
  95. endif
  96.  
  97. echo "*NPatchdatei mit GCompare erzeugen:*N"
  98.  
  99. echo "Alte Datei: " noline
  100. requestfile >ENV:gcold{$$} title "Alte Datei auswählen"
  101. if warn
  102.     echo "*N*NAbbruch."
  103.     endcli
  104. endif
  105. echo $gcold{$$}
  106.  
  107. echo "Neue Datei: " noline
  108. requestfile >ENV:gcnew{$$} title "Neue Datei auswählen"
  109. if warn
  110.     echo "*N*NAbbruch."
  111.     endcli
  112. endif
  113. echo $gcnew{$$}
  114.  
  115. if NOT EXISTS ENV:lastpatchfile{$$}
  116.     echo >ENV:lastpatchfile{$$} ""
  117. endif
  118.  
  119. echo "Patch-Datei:" noline
  120. requestfile >ENV:gcpatch{$$} $lastpatchfile{$$} noicons savemode title "Patch-Datei auswählen"
  121. if warn
  122.     echo "*N*NAbbruch."
  123.     endcli
  124. endif
  125. echo >ENV:lastpatchfile{$$} "file " noline
  126. type >>ENV:lastpatchfile{$$} ENV:gcpatch{$$}
  127. echo $gcpatch{$$}
  128.  
  129. RequestChoice >ENV:gcmodeX{$$} "Betriebsart auswählen" "In welcher Betriebsart soll GCompare arbeiten?*n*n" "Mode 1" "Mode 2" "Mode 3" "Mode 4" "Schnell" "Automatik" "Abbruch"
  130. if $gcmodeX{$$} EQ "0"
  131.     echo "*NAbbruch."
  132.     endcli
  133. endif
  134. if $gcmodeX{$$} NOT GT "4"
  135.     echo >ENV:gcmode{$$} "mode " noline
  136.     echo >>ENV:gcmode{$$} $gcmodeX{$$}
  137. endif
  138. if $gcmodeX{$$} EQ "5"
  139.     echo >ENV:gcmode{$$} " "
  140. endif
  141. if $gcmodeX{$$} EQ "6"
  142.     echo >ENV:gcmode{$$} "auto "
  143. endif
  144.  
  145. ;echo "*Ngcompare" $gcold{$$} $gcnew{$$} $gcpatch{$$} $gcmode{$$} "*N"
  146. echo ""
  147. changetaskpri -2
  148.  
  149. gcompare $gcold{$$} $gcnew{$$} $gcpatch{$$} $gcmode{$$}
  150.  
  151.